Imports System.Data.OracleClient

Public Class ttbfccll
  Inherits ttifccll


  '-----------------------------------------------------------------------


  Public Sub pvvd_rtrv_ctrl_dtls()

    Dim lvst_sqlx_strn As String

    lvst_sqlx_strn = _
      "select TFCM_ctrl_srno           " & _
            ",TFCM_form_idnt           " & _
            ",TFCM_ctrl_idnt           " & _
            ",TFCM_ctrl_cptn           " & _
            ",TFCM_ctrl_indc           " & _
            ",TFCM_ctrl_hght_indc      " & _
            ",TFCM_ctrl_wdth_indc      " & _
            ",TFCM_ctrl_xpnt_indc      " & _
            ",TFCM_ctrl_ypnt_indc      " & _
            ",TFCM_ctrl_attr_valu      " & _
            ",TFCM_refr_ctrl_idnt      " & _
            ",TFCM_ctrl_stat           " & _
      "from  TFCM_FORM_CTRL_MSTR       " & _
      "where TFCM_form_idnt   =       '" & pvst_form_idnt & "' " & _
      " and  TFCM_ctrl_idnt   =       '" & pvst_ctrl_idnt & "' " & _
      "order by TFCM_ctrl_srno       "

    'tvvd_exec_qury _
    '  (lvst_sqlx_strn)

    mCmdData = New OracleCommand(lvst_sqlx_strn, con)

    mDrData = mCmdData.ExecuteReader

  End Sub


  '-----------------------------------------------------------------------


  Public Function pvvd_rtrv_form_dtls() As OracleDataReader

    Dim lvst_sqlx_strn As String

    lvst_sqlx_strn = _
       "select TFCM_ctrl_srno           " & _
            ",TFCM_form_idnt           " & _
            ",TFCM_ctrl_idnt           " & _
            ",TFCM_ctrl_cptn           " & _
            ",TFCM_ctrl_indc           " & _
            ",TFCM_ctrl_hght_indc      " & _
            ",TFCM_ctrl_wdth_indc      " & _
            ",TFCM_ctrl_xpnt_indc      " & _
            ",TFCM_ctrl_ypnt_indc      " & _
            ",TFCM_ctrl_attr_valu      " & _
            ",TFCM_refr_ctrl_idnt      " & _
            ",TFCM_ctrl_stat           " & _
      "from  TRDX_FORM_CTRL_MSTR                      " & _
     "where TFCM_form_idnt   =      '" & pvst_form_idnt & "' " & _
      "order by TFCM_ctrl_srno       "

    'tvvd_exec_qury _
    '  (lvst_sqlx_strn)

    mCmdData = New OracleCommand(lvst_sqlx_strn, con)

    mDrData = mCmdData.ExecuteReader

    Return mDrData

  End Function

  '-----------------------------------------------------------------------


End Class
